Aminet 2/Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso/Aminet/misc/amag/sh9301c.lha/Oberon(S.67)/Listing4.mod

Text File | 1993-01-22 | 601b | 25 lines

MODULE Zahlenraten;
IMPORT
  io, r: Random;
CONST
  Max = 100;
  MaxStellen = 3;
VAR
  Zahl, Tip: LONGINT;
BEGIN
  Zahl := r.RND (Max) + 1;
  io.WriteString ("Zahlenraten im Bereich von 1-");
  io.WriteInt (Max, MaxStellen); io.WriteLn; io.WriteLn;
  REPEAT
    REPEAT
      io.WriteString ("Dein Tip: ");
    UNTIL (io.ReadInt (Tip)) AND (Tip >= 1) AND (Tip <= Max);
    IF Tip > Zahl THEN
      io.WriteString ("Leider zu groß!\n\n");
    ELSIF Tip < Zahl THEN
      io.WriteString ("Schade, zu klein!\n\n");
    END; (* IF *)
  UNTIL Tip = Zahl;
  io.WriteString ("Geschafft!\n");
END Zahlenraten.